home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / libs / rexmooslib.lha / MOOS / ARexx / dos / Relabel < prev   
Text File  |  1997-01-20  |  251b  |  17 lines
  1. /*
  2.  * 'dos/Relabel'(drive,name)
  3.  *
  4.  * $(C): (1997, Rocco Coluccelli, Bologna)
  5.  * $VER: dos/Relabel 1.00 (17.Jan.1997)
  6.  */
  7.  
  8. SIGNAL ON error
  9. CALL CLOSE(STDOUT)
  10.  
  11. ADDRESS COMMAND 'Relabel "'STRIP(ARG(1))'" "'STRIP(ARG(2),," :")'"'
  12. EXIT 1
  13.  
  14.  
  15. error:
  16.     EXIT 0
  17.